home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / cw_in_47.zip / INTELEC.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-03-18  |  26KB  |  1,168 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Date     DATE001
  20.     Date     DATE002
  21.     Date     DATE003
  22.     Date     DATE004
  23.     Date     DATE005
  24.     Integer  INTEGER001
  25.     Integer  INTEGER002
  26.     Integer  INTEGER003
  27.     Integer  INTEGER004
  28.     Integer  INTEGER005
  29.     Integer  INTEGER006
  30.     Integer  INTEGER007
  31.     Integer  INTEGER008
  32.     Integer  INTEGER009
  33.     Integer  INTEGER010
  34.     Integer  INTEGER011
  35.     Integer  INTEGER012
  36.     Integer  INTEGER013
  37.     Integer  INTEGER014
  38.     Integer  INTEGER015
  39.     Integer  INTEGER016
  40.     Integer  INTEGER017
  41.     Integer  INTEGER018
  42.     Integer  INTEGER019
  43.     String   STRING001
  44.     String   STRING002
  45.     String   STRING003
  46.     String   STRING004
  47.     String   STRING005
  48.     String   STRING006
  49.     String   STRING007
  50.     String   STRING008
  51.     String   STRING009
  52.     String   STRING010
  53.     String   STRING011
  54.     String   STRING012
  55.     String   STRING013
  56.     String   STRING014
  57.     String   STRING015
  58.     String   STRING016
  59.     String   STRING017
  60.     String   STRING018
  61.     String   STRING019
  62.     String   TSTRING020(1)
  63.     String   STRING021
  64.     String   TSTRING022(9)
  65.     String   TSTRING023(4)
  66.     String   TSTRING024(12)
  67.     String   STRING025
  68.     String   STRING026
  69.     String   STRING027
  70.     String   STRING028
  71.     String   STRING029
  72.     String   STRING030
  73.     String   STRING031
  74.     String   STRING032
  75.     String   STRING033
  76.     String   STRING034
  77.     String   STRING035
  78.     String   STRING036
  79.     String   STRING037
  80.     String   STRING038
  81.     String   STRING039
  82.     String   STRING040
  83.     String   STRING041
  84.     String   STRING042
  85.     String   STRING043
  86.  
  87. ;------------------------------------------------------------------------------
  88.  
  89.     If (AnsiOn()) Goto LABEL001
  90.     PrintLn "@CLS@ANSI is required to run this program"
  91.     End
  92.     :LABEL001
  93.     INTEGER012 = 36
  94.     STRING033 = PPEPath() + "INTELEC.CNF"
  95.     STRING040 = 48884
  96.     STRING041 = 58053
  97.     STRING039 = "N"
  98.     STRING042 = "U" + "n" + "r" + "e" + "g" + "i" + "s" + "t" + "e" + "r" + "e" + "d"
  99.     STRING021 = "4.7 "
  100.     If (Exist(STRING033)) Then
  101.         FOpen 1, STRING033, 0, 0
  102.         FGet 1, STRING028
  103.         FGet 1, INTEGER015
  104.         FGet 1, INTEGER014
  105.         FClose 1
  106.     Else
  107.         PrintLn "@X0CError - Config file not found - Please notify SysOp"
  108.         End
  109.     Endif
  110.     Tokenize STRING028
  111.     GetToken STRING037
  112.     GetToken STRING038
  113.     STRING034 = Left(STRING037, 1)
  114.     STRING035 = Left(STRING038, 2)
  115.     STRING036 = STRING034 + STRING035
  116.     If (STRING034 == "A") INTEGER016 = 8408
  117.     If (STRING034 == "B") INTEGER016 = 9119
  118.     If (STRING034 == "C") INTEGER016 = 6619
  119.     If (STRING034 == "D") INTEGER016 = 4820
  120.     If (STRING034 == "E") INTEGER016 = 7325
  121.     If (STRING034 == "F") INTEGER016 = 2928
  122.     If (STRING034 == "G") INTEGER016 = 2031
  123.     If (STRING034 == "H") INTEGER016 = 1934
  124.     If (STRING034 == "I") INTEGER016 = 5534
  125.     If (STRING034 == "J") INTEGER016 = 4737
  126.     If (STRING034 == "K") INTEGER016 = 9242
  127.     If (STRING034 == "L") INTEGER016 = 3743
  128.     If (STRING034 == "M") INTEGER016 = 6546
  129.     If (STRING034 == "N") INTEGER016 = 8355
  130.     If (STRING034 == "O") INTEGER016 = 2859
  131.     If (STRING034 == "P") INTEGER016 = 4660
  132.     If (STRING034 == "Q") INTEGER016 = 7463
  133.     If (STRING034 == "R") INTEGER016 = 1164
  134.     If (STRING034 == "S") INTEGER016 = 6471
  135.     If (STRING034 == "T") INTEGER016 = 3973
  136.     If (STRING034 == "U") INTEGER016 = 5674
  137.     If (STRING034 == "V") INTEGER016 = 5782
  138.     If (STRING034 == "W") INTEGER016 = 3885
  139.     If (STRING034 == "X") INTEGER016 = 8287
  140.     If (STRING034 == "Y") INTEGER016 = 7591
  141.     If (STRING034 == "Z") INTEGER016 = 1096
  142.     INTEGER013 = S2I(STRING036, INTEGER012) + INTEGER015 + STRING040 + INTEGER016
  143.     INTEGER017 = S2I(STRING036, INTEGER012) + INTEGER015 + STRING041 + INTEGER016
  144.     If (INTEGER014 == INTEGER013) Goto LABEL002
  145.     If (INTEGER014 == INTEGER017) Goto LABEL002
  146.     Goto LABEL054
  147.     :LABEL002
  148.     STRING039 = "Y"
  149.     If (Len(INTEGER015) == 1) STRING030 = "000"
  150.     If (Len(INTEGER015) == 2) STRING030 = "00"
  151.     If (Len(INTEGER015) == 3) STRING030 = "0"
  152.     If (Len(INTEGER015) == 4) STRING030 = ""
  153.     STRING031 = INTEGER015
  154.     STRING032 = STRING030 + STRING031
  155.     STRING029 = Space(30 - Len(STRING028))
  156.     FDefIn 1
  157.     FOpen 1, STRING033, 0, 0
  158.     FGet 1, STRING028
  159.     FGet 1, INTEGER015
  160.     FGet 1, INTEGER014
  161.     FGet 1, STRING003
  162.     FGet 1, STRING009
  163.     FGet 1, STRING006
  164.     FGet 1, STRING018
  165.     FGet 1, STRING013
  166.     FGet 1, STRING014
  167.     FGet 1, STRING015
  168.     FGet 1, STRING016
  169.     FGet 1, STRING017
  170.     FClose 1
  171.     WrUNet PcbNode(), UN_Stat(), U_Name(), "Intelec Network Utility", "", ""
  172.     GetUser
  173.     STRING005 = Left(U_Name(), 17)
  174.     DATE001 = Date()
  175.     INTEGER007 = Month(DATE001)
  176.     STRING026 = INTEGER007
  177.     If (Len(STRING026) == 1) Then
  178.         STRING026 = "0" + STRING026
  179.     Endif
  180.     INTEGER008 = Year(DATE001)
  181.     STRING025 = String(INTEGER008)
  182.     TSTRING020(0) = "IN_" + Right(STRING025, 2) + STRING026 + ".ZIP"
  183.     TSTRING020(1) = "INB_" + Right(STRING025, 2) + STRING026 + ".ZIP"
  184.     STRING004 = "    Intelec v" + STRING021 + " #" + STRING032 + " ■ Reg'd To: " + STRING003 + " ■ " + STRING028
  185.     GetToken STRING007
  186.     If (STRING007 == "I") STRING008 = "Y"
  187.     If (!(STRING007 == "I")) STRING008 = "N"
  188.     If (STRING008 == "Y") Goto LABEL003
  189.     FOpen 1, STRING013, 0, 0
  190.     For INTEGER004 = 1 To 8
  191.         FGet 1, STRING009
  192.     Next
  193.     FGet 1, STRING010
  194.     FClose 1
  195.     DATE002 = Mid(STRING010, 38, 8)
  196.     If (DATE001 > DATE002) Goto LABEL028
  197.     Goto LABEL004
  198.     :LABEL003
  199.     FOpen 1, STRING013, 0, 0
  200.     For INTEGER004 = 1 To 8
  201.         FGet 1, STRING009
  202.     Next
  203.     FGet 1, STRING010
  204.     FClose 1
  205.     DATE002 = Mid(STRING010, 49, 8)
  206.     If (DATE001 > DATE002) Goto LABEL028
  207.     :LABEL004
  208.     FOpen 1, STRING015, 0, 0
  209.     For INTEGER004 = 1 To 4
  210.         FGet 1, STRING009
  211.     Next
  212.     FClose 1
  213.     INTEGER005 = Mid(STRING009, 42, 3)
  214.     FOpen 1, STRING014, 0, 0
  215.     For INTEGER004 = 1 To 4
  216.         FGet 1, STRING009
  217.     Next
  218.     FClose 1
  219.     INTEGER006 = Mid(STRING009, 47, 3)
  220.     DispFile PPEPath() + "WELC", 4 + 2 + 1
  221.     Color 15
  222.     PrintLn STRING004
  223.     PrintLn 
  224.     Wait
  225.     :LABEL005
  226.     Cls
  227.     StartDisp 2
  228.     STRING011 = "Q"
  229.     INTEGER001 = 0
  230.     STRING001 = ""
  231.     STRING002 = ""
  232.     TSTRING024(0) = "  [A]  Apply to the Intelec Network   "
  233.     TSTRING024(1) = "  [C]  Conferences (Search/Display)   "
  234.     TSTRING024(2) = "  [D]  D/L the " + TSTRING020(0) + " Info-Pak   "
  235.     TSTRING024(3) = "  [E]  This Database's Expire Date    "
  236.     TSTRING024(4) = "  [G]  Log off from this BBS system   "
  237.     TSTRING024(5) = "  [H]  History of Conference Changes  "
  238.     TSTRING024(6) = "  [I]  IN Basket  Intelec Newsletter  "
  239.     TSTRING024(7) = "  [M]  Message from Administration    "
  240.     TSTRING024(8) = "  [N]  Nodelist (Intelec Membership)  "
  241.     TSTRING024(9) = "  [Q]  Quit the Intelec Net Database  "
  242.     TSTRING024(10) = "  [R]  Review Intelec Network Rules   "
  243.     TSTRING024(11) = "  [S]  Scan for Super-Reg, Reg, Hubs  "
  244.     TSTRING024(12) = "  [T]  Totally Random BBS/SysOp Scan  "
  245.     PrintLn "@CLS@@X0B               Intelec Network Database and Application Generator@X07"
  246.     PrintLn "                                (c) 1995 Intelec@X0B"
  247.     PrintLn "                             Use UP/DOWN Arrow Keys@X0A"
  248.     PrintLn "                    ┌──────────────────────────────────────┐"
  249.     For INTEGER004 = 1 To 13
  250.         PrintLn "                    │                                      │"
  251.     Next
  252.     PrintLn "                    └──────────────────────────────────────┘"
  253.     Color 11
  254.     AnsiPos 22, 5
  255.     Print TSTRING024(0)
  256.     AnsiPos 22, 6
  257.     Print TSTRING024(1)
  258.     AnsiPos 22, 7
  259.     Print TSTRING024(2)
  260.     AnsiPos 22, 8
  261.     Print TSTRING024(3)
  262.     AnsiPos 22, 9
  263.     Print TSTRING024(4)
  264.     AnsiPos 22, 10
  265.     Print TSTRING024(5)
  266.     AnsiPos 22, 11
  267.     Print TSTRING024(6)
  268.     AnsiPos 22, 12
  269.     Print TSTRING024(7)
  270.     AnsiPos 22, 13
  271.     Print TSTRING024(8)
  272.     AnsiPos 22, 14
  273.     Print TSTRING024(9)
  274.     AnsiPos 22, 15
  275.     Print TSTRING024(10)
  276.     AnsiPos 22, 16
  277.     Print TSTRING024(11)
  278.     AnsiPos 22, 17
  279.     Print TSTRING024(12)
  280.     INTEGER019 = 17
  281.     STRING043 = ""
  282.     AnsiPos 22, 5
  283.     Print "@X1F", TSTRING024(GetY() - 5), "@X07"
  284.     :LABEL006
  285.     While (STRING043 == "") Do
  286.         STRING043 = Inkey()
  287.     EndWhile
  288.     Select Case (STRING043)
  289.         Case Chr(13)
  290.             INTEGER018 = GetY()
  291.             Goto LABEL009
  292.         Case "DOWN"
  293.             Gosub LABEL008
  294.         Case "UP"
  295.             Gosub LABEL007
  296.         Case "Q", "q", Chr(27)
  297.             Goto LABEL010
  298.     End Select
  299.     STRING043 = ""
  300.     Goto LABEL006
  301.     :LABEL007
  302.     AnsiPos 22, GetY()
  303.     Print "@X0B", TSTRING024(GetY() - 5), "@X07"
  304.     If (GetY() - 1 < 5) Then
  305.         AnsiPos 22, INTEGER019
  306.     Else
  307.         AnsiPos 22, GetY() - 1
  308.     Endif
  309.     Print "@X1F", TSTRING024(GetY() - 5), "@X07"
  310.     Return
  311.     :LABEL008
  312.     AnsiPos 22, GetY()
  313.     Print "@X0B", TSTRING024(GetY() - 5), "@X07"
  314.     If (GetY() + 1 > INTEGER019) Then
  315.         AnsiPos 22, 5
  316.     Else
  317.         AnsiPos 22, GetY() + 1
  318.     Endif
  319.     Print "@X1F", TSTRING024(GetY() - 5), "@X07"
  320.     Return
  321.     :LABEL009
  322.     If (INTEGER018 == 5) STRING011 = "A"
  323.     If (INTEGER018 == 6) STRING011 = "C"
  324.     If (INTEGER018 == 7) STRING011 = "D"
  325.     If (INTEGER018 == 8) STRING011 = "E"
  326.     If (INTEGER018 == 9) STRING011 = "G"
  327.     If (INTEGER018 == 10) STRING011 = "H"
  328.     If (INTEGER018 == 11) STRING011 = "I"
  329.     If (INTEGER018 == 12) STRING011 = "M"
  330.     If (INTEGER018 == 13) STRING011 = "N"
  331.     If (INTEGER018 == 14) STRING011 = "Q"
  332.     If (INTEGER018 == 15) STRING011 = "R"
  333.     If (INTEGER018 == 16) STRING011 = "S"
  334.     If (INTEGER018 == 17) STRING011 = "T"
  335.     If (STRING011 == "A") Then
  336.         If (STRING006 == "N") Goto LABEL029
  337.         If (STRING008 == "Y") Call PPEPath() + "INTELAPP.PPE I"
  338.         If (STRING008 == "N") Call PPEPath() + "INTELAPP.PPE"
  339.         Goto LABEL005
  340.     Endif
  341.     If (STRING011 == "C") Goto LABEL032
  342.     If (STRING011 == "D") Goto LABEL031
  343.     If (STRING011 == "E") Goto LABEL030
  344.     If (STRING011 == "G") Then
  345.         Cls
  346.         Bye
  347.     Endif
  348.     If (STRING011 == "H") Goto LABEL025
  349.     If ((STRING011 == "I") && (STRING018 == "N")) Goto LABEL012
  350.     If (STRING011 == "I") Goto LABEL013
  351.     If (STRING011 == "M") Goto LABEL026
  352.     If (STRING011 == "N") STRING002 = "Y"
  353.     If (STRING011 == "N") Goto LABEL041
  354.     If (STRING011 == "P") Goto LABEL027
  355.     If (STRING011 == "Q") Goto LABEL010
  356.     If (STRING011 == "R") Goto LABEL011
  357.     If (STRING011 == "S") STRING001 = "Y"
  358.     If (STRING011 == "S") Goto LABEL041
  359.     If (STRING011 == "T") Goto LABEL022
  360.     Goto LABEL027
  361.     :LABEL010
  362.     DispFile PPEPath() + "BYE", 4 + 2 + 1
  363.     End
  364.     :LABEL011
  365.     DispFile STRING013, 4 + 2 + 1
  366.     Wait
  367.     Goto LABEL005
  368.     :LABEL012
  369.     PrintLn "@CLS@@X0ESorry @FIRST@, the newsletter is not available on this system."
  370.     PrintLn 
  371.     Wait
  372.     Goto LABEL005
  373.     :LABEL013
  374.     StartDisp 2
  375.     STRING011 = "Q"
  376.     DispFile PPEPath() + "MAININB", 4 + 2 + 1
  377.     PrintLn 
  378.     DATE005 = FileInf(STRING018 + "CONFSTAT.INB", 2)
  379.     If (Month(DATE005) < Month(Date())) Then
  380.         PrintLn "@X0BSorry, the IN Basket on this system is too old, please ask SysOp to get the new"
  381.         PrintLn "@X0Bfile called @X0F", TSTRING020(1), "@X0B. This program will not display an outdated newsletter."
  382.         Wait
  383.         Goto LABEL005
  384.     Endif
  385.     InputStr "@X0B   Please select Menu Letter ", STRING011, 11, 1, Mask_Alpha(), 8 + 2
  386.     Cls
  387.     If (STRING011 == "E") Goto LABEL014
  388.     If (STRING011 == "A") Goto LABEL015
  389.     If (STRING011 == "H") Goto LABEL016
  390.     If (STRING011 == "I") Goto LABEL017
  391.     If (STRING011 == "C") Goto LABEL018
  392.     If (STRING011 == "M") Goto LABEL019
  393.     If (STRING011 == "N") Goto LABEL020
  394.     If (STRING011 == "B") Goto LABEL021
  395.     If (STRING011 == "Q") Goto LABEL005
  396.     Goto LABEL027
  397.     :LABEL014
  398.     STRING019 = STRING018 + "EDITNOTE.INB"
  399.     DispFile STRING019, 4 + 2 + 1
  400.     Wait
  401.     Goto LABEL013
  402.     :LABEL015
  403.     STRING019 = STRING018 + "NEWS_NET.INB"
  404.     DispFile STRING019, 4 + 2 + 1
  405.     Wait
  406.     Goto LABEL013
  407.     :LABEL016
  408.     STRING019 = STRING018 + "NEWS_MOD.INB"
  409.     DispFile STRING019, 4 + 2 + 1
  410.     Wait
  411.     Goto LABEL013
  412.     :LABEL017
  413.     STRING019 = STRING018 + "NEWS_CNF.INB"
  414.     DispFile STRING019, 4 + 2 + 1
  415.     Wait
  416.     Goto LABEL013
  417.     :LABEL018
  418.     STRING019 = STRING018 + "CONFSTAT.INB"
  419.     DispFile STRING019, 4 + 2 + 1
  420.     Wait
  421.     Goto LABEL013
  422.     :LABEL019
  423.     STRING019 = STRING018 + "NODESTAT.INB"
  424.     DispFile STRING019, 4 + 2 + 1
  425.     Wait
  426.     Goto LABEL013
  427.     :LABEL020
  428.     STRING019 = STRING018 + "NEEDMODS.INB"
  429.     DispFile STRING019, 4 + 2 + 1
  430.     Wait
  431.     Goto LABEL013
  432.     :LABEL021
  433.     STRING019 = STRING018 + "HI_LITES.INB"
  434.     DispFile STRING019, 4 + 2 + 1
  435.     Wait
  436.     Goto LABEL013
  437.     :LABEL022
  438.     INTEGER009 = 0
  439.     If (AnsiOn()) Goto LABEL023
  440.     PrintLn "@CLS@@X0BSorry, ANSI required to operate Random BBS Generator"
  441.     PrintLn 
  442.     Wait
  443.     Goto LABEL005
  444.     :LABEL023
  445.     PrintLn "@CLS@@X0DGive it a few seconds, then press any key to stop totally random scan"
  446.     :LABEL024
  447.     FOpen 1, STRING015, 0, 0
  448.     FGet 1, STRING009
  449.     FGet 1, STRING009
  450.     FGet 1, STRING009
  451.     FGet 1, STRING009
  452.     FGet 1, STRING009
  453.     For INTEGER003 = 1 To INTEGER005
  454.         If (INTEGER009 == 10) INTEGER009 = 0
  455.         INTEGER009 = INTEGER009 + 1
  456.         FGet 1, TSTRING023(0)
  457.         FGet 1, TSTRING023(1)
  458.         FGet 1, TSTRING023(2)
  459.         FGet 1, TSTRING023(3)
  460.         FGet 1, TSTRING023(4)
  461.         If (INTEGER009 == 1) STRING027 = "▄     "
  462.         If (INTEGER009 == 6) STRING027 = "    ▀ "
  463.         If (INTEGER009 == 2) STRING027 = " ▄    "
  464.         If (INTEGER009 == 7) STRING027 = "   ▀  "
  465.         If (INTEGER009 == 3) STRING027 = "  ▄   "
  466.         If (INTEGER009 == 8) STRING027 = "  ▀   "
  467.         If (INTEGER009 == 4) STRING027 = "   ▄  "
  468.         If (INTEGER009 == 9) STRING027 = " ▀    "
  469.         If (INTEGER009 == 5) STRING027 = "    ▄ "
  470.         If (INTEGER009 == 10) STRING027 = "▀     "
  471.         TSTRING023(0) = "        @X0B" + Mid(TSTRING023(0), 9, 71)
  472.         TSTRING023(1) = "        @X0F" + Mid(TSTRING023(1), 9, 71)
  473.         TSTRING023(2) = "        @X0E" + Mid(TSTRING023(2), 9, 71)
  474.         TSTRING023(3) = "        @X0A" + Mid(TSTRING023(3), 9, 71)
  475.         TSTRING023(4) = "        @X0C" + Mid(TSTRING023(4), 9, 71)
  476.         AnsiPos 71, 1
  477.         Print STRING027
  478.         If (KInkey() == "") Then
  479.             If (MInkey() == "") Then
  480.             Next
  481.             FClose 1
  482.             Goto LABEL024
  483.         Endif
  484.     Endif
  485.     AnsiPos 71, 1
  486.     Print "     "
  487.     AnsiPos 1, 3
  488.     PrintLn TSTRING023(0)
  489.     PrintLn TSTRING023(1)
  490.     PrintLn TSTRING023(2)
  491.     PrintLn TSTRING023(3)
  492.     PrintLn TSTRING023(4)
  493.     PrintLn 
  494.     FClose 1
  495.     Wait
  496.     Goto LABEL005
  497.     :LABEL025
  498.     DispFile STRING016, 4 + 2 + 1
  499.     Wait
  500.     Goto LABEL005
  501.     :LABEL026
  502.     DispFile STRING017, 4 + 2 + 1
  503.     Wait
  504.     Goto LABEL005
  505.     :LABEL027
  506.     PrintLn 
  507.     PrintLn "@X0FSorry... you entered an invalid menu letter"
  508.     PrintLn 
  509.     Wait
  510.     Goto LABEL005
  511.     :LABEL028
  512.     Cls
  513.     Color 15
  514.     PrintLn "Intelec PPE has ABORTED. The database expired on @X0E", DATE002, "@X0F, ask the SysOp"
  515.     PrintLn "to install a  CURRENT  Intelec distribution file, they're available from"
  516.     PrintLn "Intelec each month with updated info. We're sorry for the inconvenience."
  517.     Stop
  518.     :LABEL029
  519.     DispFile PPEPath() + "NOAPP", 4 + 2 + 1
  520.     Wait
  521.     Goto LABEL005
  522.     :LABEL030
  523.     Cls
  524.     PrintLn 
  525.     PrintLn "                    @X0BThe Intelec Database Expires on @X0F", DATE002
  526.     PrintLn 
  527.     Wait
  528.     Goto LABEL005
  529.     :LABEL031
  530.     PrintLn "@CLS@@X0A"
  531.     PrintLn "    If @X0F", TSTRING020(0), "@X0A is on this BBS you will be able to download it right now."
  532.     PrintLn "    If it's @X0Cnot@X0A found on this BBS, please ask SysOp to get it from the @X0FHost@X0A."
  533.     PrintLn 
  534.     Wait
  535.     Download TSTRING020(0)
  536.     Goto LABEL005
  537.     :LABEL032
  538.     StartDisp 2
  539.     INTEGER001 = 0
  540.     STRING011 = ""
  541.     InputStr "@CLS@@X0FD@X0B)isplay Conferences  @X0FS@X0B)earch Conferences  @X0F<Enter>@X0B to Return", STRING011, 11, 1, Mask_Alpha(), 2 + 8 + 128
  542.     If (STRING011 == "D") Goto LABEL033
  543.     If (STRING011 == "S") Goto LABEL034
  544.     Goto LABEL005
  545.     :LABEL033
  546.     INTEGER009 = 0
  547.     Cls
  548.     FOpen 1, STRING014, 0, 0
  549.     For INTEGER004 = 1 To 10
  550.         FGet 1, STRING009
  551.     Next
  552.     For INTEGER003 = 1 To INTEGER006
  553.         FGet 1, TSTRING022(0)
  554.         FGet 1, TSTRING022(1)
  555.         FGet 1, TSTRING022(2)
  556.         FGet 1, TSTRING022(3)
  557.         FGet 1, TSTRING022(4)
  558.         FGet 1, TSTRING022(5)
  559.         FGet 1, TSTRING022(6)
  560.         FGet 1, TSTRING022(7)
  561.         FGet 1, TSTRING022(8)
  562.         FGet 1, TSTRING022(9)
  563.         If (INTEGER009 == 2) INTEGER009 = 0
  564.         TSTRING022(0) = "@X0A" + TSTRING022(0)
  565.         TSTRING022(1) = "@X0F" + TSTRING022(1)
  566.         TSTRING022(2) = "@X0F" + TSTRING022(2)
  567.         TSTRING022(3) = "@X0F" + TSTRING022(3)
  568.         TSTRING022(4) = "@X0F" + TSTRING022(4)
  569.         TSTRING022(5) = "@X0A" + TSTRING022(5)
  570.         TSTRING022(6) = "@X0B" + TSTRING022(6)
  571.         TSTRING022(7) = "@X0B" + TSTRING022(7)
  572.         TSTRING022(8) = "@X0B" + TSTRING022(8)
  573.         TSTRING022(9) = "@X0B" + TSTRING022(9)
  574.         PrintLn Chr(13), TSTRING022(0)
  575.         PrintLn Chr(13), TSTRING022(1)
  576.         PrintLn Chr(13), TSTRING022(2)
  577.         PrintLn Chr(13), TSTRING022(3)
  578.         PrintLn Chr(13), TSTRING022(4)
  579.         PrintLn Chr(13), TSTRING022(5)
  580.         PrintLn Chr(13), TSTRING022(6)
  581.         PrintLn Chr(13), TSTRING022(7)
  582.         PrintLn Chr(13), TSTRING022(8)
  583.         PrintLn Chr(13), TSTRING022(9)
  584.         INTEGER009 = INTEGER009 + 1
  585.         If (INTEGER009 == 2) Then
  586.             PrintLn Chr(13), TSTRING022(0)
  587.             STRING012 = "Y"
  588.             InputYN "@X0EView next screen (Enter for more)", STRING012, 14
  589.             If (STRING012 == "N") Goto LABEL053
  590.             Cls
  591.         Endif
  592.     Next
  593.     FClose 1
  594.     Wait
  595.     Goto LABEL032
  596.     :LABEL034
  597.     INTEGER009 = 0
  598.     INTEGER001 = 0
  599.     Cls
  600.     DispFile PPEPath() + "SCHCNF", 4 + 2 + 1
  601.     InputStr "Select 1 through 14 or <Enter> to Return ", INTEGER001, 11, 2, Mask_Num(), 2 + 128
  602.     If (INTEGER001 > 14) Goto LABEL034
  603.     If (INTEGER001 == 1) Goto LABEL037
  604.     If (INTEGER001 == 2) Goto LABEL038
  605.     If (INTEGER001 == 3) Goto LABEL039
  606.     If (INTEGER001 == 4) Goto LABEL040
  607.     If (INTEGER001 >= 5) Goto LABEL035
  608.     Goto LABEL032
  609.     :LABEL035
  610.     Cls
  611.     FOpen 1, STRING014, 0, 0
  612.     For INTEGER004 = 1 To 10
  613.         FGet 1, STRING009
  614.     Next
  615.     For INTEGER003 = 1 To INTEGER006
  616.         FGet 1, TSTRING022(0)
  617.         FGet 1, TSTRING022(1)
  618.         FGet 1, TSTRING022(2)
  619.         FGet 1, TSTRING022(3)
  620.         FGet 1, TSTRING022(4)
  621.         FGet 1, TSTRING022(5)
  622.         FGet 1, TSTRING022(6)
  623.         FGet 1, TSTRING022(7)
  624.         FGet 1, TSTRING022(8)
  625.         FGet 1, TSTRING022(9)
  626.         If (INTEGER001 == 1) Then
  627.             If ((((InStr(Upper(TSTRING022(1)), STRING011) >= 1) || (InStr(Upper(TSTRING022(2)), STRING011) >= 1)) || (InStr(Upper(TSTRING022(3)), STRING011) >= 1)) || (InStr(Upper(TSTRING022(4)), STRING011) >= 1)) Then
  628.                 Gosub LABEL052
  629.                 Goto LABEL036
  630.             Endif
  631.             If ((((InStr(Upper(TSTRING022(6)), STRING011) >= 1) || (InStr(Upper(TSTRING022(7)), STRING011) >= 1)) || (InStr(Upper(TSTRING022(8)), STRING011) >= 1)) || (InStr(Upper(TSTRING022(9)), STRING011) >= 1)) Gosub LABEL052
  632.         Endif
  633.         :LABEL036
  634.         If (INTEGER001 == 2) Then
  635.             If ((InStr(Upper(TSTRING022(1)), STRING011) >= 1) || (InStr(Upper(TSTRING022(3)), STRING011) >= 1)) Gosub LABEL052
  636.         Endif
  637.         If (INTEGER001 == 3) Then
  638.             If (Mid(TSTRING022(1), 73, 3) == INTEGER002) Gosub LABEL052
  639.         Endif
  640.         If (INTEGER001 == 4) Then
  641.             DATE004 = Mid(TSTRING022(2), 68, 8)
  642.             If (DATE004 >= DATE003) Gosub LABEL052
  643.         Endif
  644.         If (INTEGER001 == 5) Then
  645.             If (Mid(TSTRING022(4), 10, 6) == "Privat") Gosub LABEL052
  646.         Endif
  647.         If (INTEGER001 == 6) Then
  648.             If (Mid(TSTRING022(2), 8, 7) == "Adminis") Gosub LABEL052
  649.         Endif
  650.         If (INTEGER001 == 7) Then
  651.             If (Mid(TSTRING022(4), 20, 3) == "Req") Gosub LABEL052
  652.         Endif
  653.         If (INTEGER001 == 8) Then
  654.             If (Mid(TSTRING022(2), 8, 14) == "Author Support") Gosub LABEL052
  655.         Endif
  656.         If (INTEGER001 == 9) Then
  657.             If (Mid(TSTRING022(2), 8, 14) == "Issues        ") Gosub LABEL052
  658.         Endif
  659.         If (INTEGER001 == 10) Then
  660.             If (Mid(TSTRING022(2), 8, 14) == "General       ") Gosub LABEL052
  661.         Endif
  662.         If (INTEGER001 == 11) Then
  663.             If (Mid(TSTRING022(2), 8, 14) == "Technical     ") Gosub LABEL052
  664.         Endif
  665.         If (INTEGER001 == 12) Then
  666.             If (Mid(TSTRING022(2), 8, 14) == "Programming   ") Gosub LABEL052
  667.         Endif
  668.         If (INTEGER001 == 13) Then
  669.             If (Mid(TSTRING022(2), 8, 14) == "Religion      ") Gosub LABEL052
  670.         Endif
  671.         If (INTEGER001 == 14) Then
  672.             If (Mid(TSTRING022(2), 8, 14) == "Organizational") Gosub LABEL052
  673.         Endif
  674.     Next
  675.     FClose 1
  676.     PrintLn 
  677.     Wait
  678.     Goto LABEL034
  679.     :LABEL037
  680.     STRING011 = ""
  681.     PrintLn 
  682.     InputStr "@X0BWhat text to search for", STRING011, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
  683.     If (STRING011 == "") Goto LABEL032
  684.     Goto LABEL035
  685.     :LABEL038
  686.     STRING011 = ""
  687.     PrintLn 
  688.     InputStr "@X0BWhat moderator or conference name to search for", STRING011, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
  689.     If (STRING011 == "") Goto LABEL032
  690.     Goto LABEL035
  691.     :LABEL039
  692.     INTEGER002 = 0
  693.     PrintLn 
  694.     InputStr "@X0BWhat conference # to search for", INTEGER002, 11, 3, Mask_Num(), 2 + 128
  695.     If (INTEGER002 == 0) Goto LABEL032
  696.     Goto LABEL035
  697.     :LABEL040
  698.     INTEGER002 = 0
  699.     DATE003 = 0
  700.     InputStr "@X0BHow many days back to search", INTEGER002, 11, 3, Mask_Num(), 2 + 128
  701.     DATE003 = Date() - INTEGER002
  702.     If (INTEGER002 == 0) Goto LABEL032
  703.     Goto LABEL035
  704.     :LABEL041
  705.     INTEGER010 = 0
  706.     INTEGER011 = 0
  707.     INTEGER009 = 0
  708.     StartDisp 2
  709.     Cls
  710.     INTEGER001 = 0
  711.     DispFile PPEPath() + "SCHHUB", 4 + 2 + 1
  712.     InputStr "Select 1 through 8 or <Enter> to Return ", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  713.     If (INTEGER001 == 1) Goto LABEL043
  714.     If (INTEGER001 == 2) Goto LABEL044
  715.     If (INTEGER001 == 3) Goto LABEL045
  716.     If (INTEGER001 == 4) Goto LABEL046
  717.     If (INTEGER001 == 5) Goto LABEL047
  718.     If (INTEGER001 == 6) Goto LABEL048
  719.     If (INTEGER001 == 7) Goto LABEL049
  720.     If (INTEGER001 == 8) Goto LABEL042
  721.     If (INTEGER001 >= 8) Goto LABEL041
  722.     Goto LABEL005
  723.     :LABEL042
  724.     INTEGER009 = 0
  725.     Cls
  726.     FOpen 1, STRING015, 0, 0
  727.     For INTEGER004 = 1 To 5
  728.         FGet 1, STRING009
  729.     Next
  730.     For INTEGER003 = 1 To INTEGER005
  731.         FGet 1, TSTRING023(0)
  732.         FGet 1, TSTRING023(1)
  733.         FGet 1, TSTRING023(2)
  734.         FGet 1, TSTRING023(3)
  735.         FGet 1, TSTRING023(4)
  736.         If (((STRING002 == "Y") && !(Mid(TSTRING023(1), 68, 3) == "USA")) && !(Mid(TSTRING023(1), 68, 3) == "Can")) Gosub LABEL051
  737.         If ((((STRING001 == "Y") && !(Mid(TSTRING023(1), 68, 3) == "USA")) && !(Mid(TSTRING023(1), 68, 3) == "Can")) && !(Mid(TSTRING023(3), 9, 4) == "Node")) Gosub LABEL050
  738.     Next
  739.     FClose 1
  740.     PrintLn 
  741.     If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER010, "@X0B"
  742.     If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER010, "@X0B"
  743.     PrintLn 
  744.     Wait
  745.     Goto LABEL041
  746.     :LABEL043
  747.     INTEGER009 = 0
  748.     STRING011 = ""
  749.     PrintLn 
  750.     InputStr "@X0BWhat State to search for (2 letter abbrev.)", STRING011, 11, 2, Mask_Alpha(), 2 + 8 + 128
  751.     If (STRING011 == "") Goto LABEL041
  752.     Cls
  753.     FOpen 1, STRING015, 0, 0
  754.     For INTEGER004 = 1 To 5
  755.         FGet 1, STRING009
  756.     Next
  757.     For INTEGER003 = 1 To INTEGER005
  758.         FGet 1, TSTRING023(0)
  759.         FGet 1, TSTRING023(1)
  760.         FGet 1, TSTRING023(2)
  761.         FGet 1, TSTRING023(3)
  762.         FGet 1, TSTRING023(4)
  763.         If ((Mid(TSTRING023(1), 65, 2) == STRING011) && (STRING002 == "Y")) Gosub LABEL051
  764.         If (((Mid(TSTRING023(1), 65, 2) == STRING011) && (STRING001 == "Y")) && !(Mid(TSTRING023(3), 9, 14) == "Node          ")) Gosub LABEL050
  765.     Next
  766.     FClose 1
  767.     PrintLn 
  768.     If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER010, "@X0B"
  769.     If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER010, "@X0B"
  770.     PrintLn 
  771.     Wait
  772.     Goto LABEL041
  773.     :LABEL044
  774.     INTEGER009 = 0
  775.     INTEGER001 = 0
  776.     Cls
  777.     DispFile PPEPath() + "SCHNET", 4 + 2 + 1
  778.     InputStr "@X0BWhat Net Software to search for", INTEGER001, 11, 2, Mask_Num(), 2 + 128
  779.     If (INTEGER001 == 0) Goto LABEL041
  780.     FOpen 1, PPEPath() + "NET_SW.LST", 0, 0
  781.     For INTEGER004 = 1 To INTEGER001
  782.         FGet 1, STRING011
  783.     Next
  784.     FClose 1
  785.     If (STRING011 == "") Goto LABEL044
  786.     STRING011 = Space(9 - Len(STRING011))
  787.     Cls
  788.     FOpen 1, STRING015, 0, 0
  789.     For INTEGER004 = 1 To 5
  790.         FGet 1, STRING009
  791.     Next
  792.     For INTEGER003 = 1 To INTEGER005
  793.         FGet 1, TSTRING023(0)
  794.         FGet 1, TSTRING023(1)
  795.         FGet 1, TSTRING023(2)
  796.         FGet 1, TSTRING023(3)
  797.         FGet 1, TSTRING023(4)
  798.         If ((Mid(TSTRING023(2), 47, 9) == STRING011) && (STRING002 == "Y")) Gosub LABEL051
  799.         If (((Mid(TSTRING023(2), 47, 9) == STRING011) && (STRING001 == "Y")) && !(Mid(TSTRING023(3), 9, 14) == "Node          ")) Gosub LABEL050
  800.     Next
  801.     FClose 1
  802.     PrintLn 
  803.     If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER010, "@X0B"
  804.     If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER010, "@X0B"
  805.     PrintLn 
  806.     STRING011 = ""
  807.     Wait
  808.     Goto LABEL041
  809.     :LABEL045
  810.     INTEGER009 = 0
  811.     INTEGER001 = 0
  812.     PrintLn 
  813.     InputStr "@X0BWhat Area Code to search for", INTEGER001, 11, 3, Mask_Num(), 2 + 128
  814.     If (INTEGER001 == 0) Goto LABEL041
  815.     Cls
  816.     FOpen 1, STRING015, 0, 0
  817.     For INTEGER004 = 1 To 5
  818.         FGet 1, STRING009
  819.     Next
  820.     For INTEGER003 = 1 To INTEGER005
  821.         FGet 1, TSTRING023(0)
  822.         FGet 1, TSTRING023(1)
  823.         FGet 1, TSTRING023(2)
  824.         FGet 1, TSTRING023(3)
  825.         FGet 1, TSTRING023(4)
  826.         If ((Mid(TSTRING023(1), 9, 3) == INTEGER001) && (STRING002 == "Y")) Gosub LABEL051
  827.         If (((Mid(TSTRING023(1), 9, 3) == INTEGER001) && (STRING001 == "Y")) && !(Mid(TSTRING023(3), 9, 14) == "Node          ")) Gosub LABEL050
  828.     Next
  829.     FClose 1
  830.     PrintLn 
  831.     If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER010, "@X0B"
  832.     If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER010, "@X0B"
  833.     PrintLn 
  834.     Wait
  835.     Goto LABEL041
  836.     :LABEL046
  837.     INTEGER009 = 0
  838.     INTEGER001 = 0
  839.     Cls
  840.     DispFile PPEPath() + "SCHBBS", 4 + 2 + 1
  841.     InputStr "@X0BWhat BBS Software to search for", INTEGER001, 11, 2, Mask_Num(), 2 + 128
  842.     If (INTEGER001 == 0) Goto LABEL005
  843.     FOpen 1, PPEPath() + "BBS_SW.LST", 0, 0
  844.     For INTEGER004 = 1 To INTEGER001
  845.         FGet 1, STRING011
  846.     Next
  847.     FClose 1
  848.     If (STRING011 == "") Goto LABEL046
  849.     STRING011 = STRING011 + Space(11 - Len(STRING011))
  850.     Cls
  851.     FOpen 1, STRING015, 0, 0
  852.     For INTEGER004 = 1 To 5
  853.         FGet 1, STRING009
  854.     Next
  855.     For INTEGER003 = 1 To INTEGER005
  856.         FGet 1, TSTRING023(0)
  857.         FGet 1, TSTRING023(1)
  858.         FGet 1, TSTRING023(2)
  859.         FGet 1, TSTRING023(3)
  860.         FGet 1, TSTRING023(4)
  861.         If ((Mid(TSTRING023(2), 35, 12) == STRING011) && (STRING002 == "Y")) Gosub LABEL051
  862.         If (((Mid(TSTRING023(2), 35, 12) == STRING011) && (STRING001 == "Y")) && !(Mid(TSTRING023(3), 9, 14) == "Node          ")) Gosub LABEL050
  863.     Next
  864.     FClose 1
  865.     STRING011 = ""
  866.     PrintLn 
  867.     If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER010, "@X0B"
  868.     If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER010, "@X0B"
  869.     PrintLn 
  870.     Wait
  871.     Goto LABEL041
  872.     :LABEL047
  873.     INTEGER009 = 0
  874.     INTEGER001 = 0
  875.     Cls
  876.     DispFile PPEPath() + "SCHMDM", 4 + 2 + 1
  877.     InputStr "@X0BWhat Modem Type to search for", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  878.     If (INTEGER001 == 0) Goto LABEL005
  879.     FOpen 1, PPEPath() + "MODEM.LST", 0, 0
  880.     For INTEGER004 = 1 To INTEGER001
  881.         FGet 1, STRING011
  882.     Next
  883.     FClose 1
  884.     If (STRING011 == "") Goto LABEL047
  885.     STRING011 = Space(10 - Len(STRING011))
  886.     Cls
  887.     FOpen 1, STRING015, 0, 0
  888.     For INTEGER004 = 1 To 5
  889.         FGet 1, STRING009
  890.     Next
  891.     For INTEGER003 = 1 To INTEGER005
  892.         FGet 1, TSTRING023(0)
  893.         FGet 1, TSTRING023(1)
  894.         FGet 1, TSTRING023(2)
  895.         FGet 1, TSTRING023(3)
  896.         FGet 1, TSTRING023(4)
  897.         If ((Mid(TSTRING023(2), 9, 15) == STRING011) && (STRING002 == "Y")) Gosub LABEL051
  898.         If (((Mid(TSTRING023(2), 9, 15) == STRING011) && (STRING001 == "Y")) && !(Mid(TSTRING023(3), 9, 14) == "Node          ")) Gosub LABEL050
  899.     Next
  900.     FClose 1
  901.     INTEGER001 = 0
  902.     STRING011 = ""
  903.     PrintLn 
  904.     If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER010, "@X0B"
  905.     If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER010, "@X0B"
  906.     PrintLn 
  907.     Wait
  908.     Goto LABEL041
  909.     :LABEL048
  910.     Color 7
  911.     INTEGER009 = 0
  912.     INTEGER001 = 0
  913.     Cls
  914.     DispFile PPEPath() + "SCHLVL", 4 + 2 + 1
  915.     InputStr "@X0BWhat Hub Level to search for", INTEGER001, 11, 1, Mask_Num(), 2 + 128
  916.     If (INTEGER001 == 0) Goto LABEL041
  917.     If (INTEGER001 == 1) STRING011 = "Super Regional"
  918.     If (INTEGER001 == 2) STRING011 = "Regional Hub  "
  919.     If (INTEGER001 == 3) STRING011 = "Local Hub     "
  920.     If (INTEGER001 > 3) Goto LABEL048
  921.     Cls
  922.     FOpen 1, STRING015, 0, 0
  923.     For INTEGER004 = 1 To 5
  924.         FGet 1, STRING009
  925.     Next
  926.     For INTEGER003 = 1 To INTEGER005
  927.         FGet 1, TSTRING023(0)
  928.         FGet 1, TSTRING023(1)
  929.         FGet 1, TSTRING023(2)
  930.         FGet 1, TSTRING023(3)
  931.         FGet 1, TSTRING023(4)
  932.         If (Mid(TSTRING023(3), 9, 14) == STRING011) Gosub LABEL050
  933.     Next
  934.     FClose 1
  935.     PrintLn 
  936.     Wait
  937.     Goto LABEL048
  938.     :LABEL049
  939.     INTEGER009 = 0
  940.     STRING011 = ""
  941.     PrintLn 
  942.     InputStr "@X0BWhat text to search for", STRING011, 11, 25, Mask_Alpha() + Mask_Ascii() + Mask_Num(), 2 + 8 + 128
  943.     If (STRING011 == "") Goto LABEL041
  944.     Cls
  945.     FOpen 1, STRING015, 0, 0
  946.     For INTEGER004 = 1 To 5
  947.         FGet 1, STRING009
  948.     Next
  949.     For INTEGER003 = 1 To INTEGER005
  950.         FGet 1, TSTRING023(0)
  951.         FGet 1, TSTRING023(1)
  952.         FGet 1, TSTRING023(2)
  953.         FGet 1, TSTRING023(3)
  954.         FGet 1, TSTRING023(4)
  955.         If (STRING002 == "Y") Then
  956.             If (((InStr(Upper(TSTRING023(0)), STRING011) || InStr(Upper(TSTRING023(1)), STRING011)) || InStr(Upper(TSTRING023(2)), STRING011)) || InStr(Upper(TSTRING023(3)), STRING011)) Gosub LABEL051
  957.         Endif
  958.         If (STRING001 == "Y") Then
  959.             If (((InStr(Upper(TSTRING023(0)), STRING011) || InStr(Upper(TSTRING023(1)), STRING011)) || InStr(Upper(TSTRING023(2)), STRING011)) || (InStr(Upper(TSTRING023(3)), STRING011) && !(Mid(TSTRING023(3), 9, 14) == "Node          "))) Gosub LABEL050
  960.         Endif
  961.     Next
  962.     FClose 1
  963.     PrintLn 
  964.     If (STRING001 == "Y") PrintLn "@X0BTotal @X0FHub@X0B matches found: @X0F", INTEGER010, "@X0B"
  965.     If (STRING002 == "Y") PrintLn "@X0BTotal matches found: @X0F", INTEGER010, "@X0B"
  966.     PrintLn 
  967.     Wait
  968.     Goto LABEL041
  969.     :LABEL050
  970.     INTEGER011 = INTEGER011 + 1
  971.     INTEGER010 = INTEGER010 + 1
  972.     If (INTEGER009 == 4) INTEGER009 = 0
  973.     If (INTEGER009 == 0) Cls
  974.     INTEGER009 = INTEGER009 + 1
  975.     TSTRING023(0) = "@X0F" + Mid(TSTRING023(0), 9, 71)
  976.     TSTRING023(1) = "@X0E" + Mid(TSTRING023(1), 9, 71)
  977.     TSTRING023(2) = "@X0A" + Mid(TSTRING023(2), 9, 71)
  978.     TSTRING023(3) = "@X0B" + Mid(TSTRING023(3), 9, 71)
  979.     TSTRING023(4) = "@X0F" + Mid(TSTRING023(4), 9, 71)
  980.     PrintLn TSTRING023(0)
  981.     PrintLn TSTRING023(1)
  982.     PrintLn TSTRING023(2)
  983.     PrintLn TSTRING023(3)
  984.     PrintLn TSTRING023(4)
  985.     If (INTEGER009 == 4) Then
  986.         PrintLn 
  987.         STRING012 = "Y"
  988.         InputYN "@X0EView next screen (Enter for more)", STRING012, 14
  989.         If (STRING012 == "N") Goto LABEL053
  990.         Cls
  991.     Endif
  992.     Return
  993.     :LABEL051
  994.     INTEGER010 = INTEGER010 + 1
  995.     If (INTEGER009 == 4) INTEGER009 = 0
  996.     If (INTEGER009 == 0) Cls
  997.     INTEGER009 = INTEGER009 + 1
  998.     TSTRING023(0) = "@X0F" + Mid(TSTRING023(0), 9, 71)
  999.     TSTRING023(1) = "@X0E" + Mid(TSTRING023(1), 9, 71)
  1000.     TSTRING023(2) = "@X0A" + Mid(TSTRING023(2), 9, 71)
  1001.     TSTRING023(3) = "@X0B" + Mid(TSTRING023(3), 9, 71)
  1002.     TSTRING023(4) = "@X0F" + Mid(TSTRING023(4), 9, 71)
  1003.     PrintLn TSTRING023(0)
  1004.     PrintLn TSTRING023(1)
  1005.     PrintLn TSTRING023(2)
  1006.     PrintLn TSTRING023(3)
  1007.     PrintLn TSTRING023(4)
  1008.     If (INTEGER009 == 4) Then
  1009.         PrintLn 
  1010.         STRING012 = "Y"
  1011.         InputYN "@X0EView next screen (Enter for more)", STRING012, 14
  1012.         If (STRING012 == "N") Goto LABEL053
  1013.     Endif
  1014.     Return
  1015.     :LABEL052
  1016.     If (INTEGER009 == 2) Then
  1017.         INTEGER009 = 0
  1018.         Cls
  1019.     Endif
  1020.     TSTRING022(0) = "@X0A" + TSTRING022(0)
  1021.     TSTRING022(1) = "@X0F" + TSTRING022(1)
  1022.     TSTRING022(2) = "@X0F" + TSTRING022(2)
  1023.     TSTRING022(3) = "@X0F" + TSTRING022(3)
  1024.     TSTRING022(4) = "@X0F" + TSTRING022(4)
  1025.     TSTRING022(5) = "@X0A" + TSTRING022(5)
  1026.     TSTRING022(6) = "@X0B" + TSTRING022(6)
  1027.     TSTRING022(7) = "@X0B" + TSTRING022(7)
  1028.     TSTRING022(8) = "@X0B" + TSTRING022(8)
  1029.     TSTRING022(9) = "@X0B" + TSTRING022(9)
  1030.     PrintLn Chr(13), TSTRING022(0)
  1031.     PrintLn Chr(13), TSTRING022(1)
  1032.     PrintLn Chr(13), TSTRING022(2)
  1033.     PrintLn Chr(13), TSTRING022(3)
  1034.     PrintLn Chr(13), TSTRING022(4)
  1035.     PrintLn Chr(13), TSTRING022(5)
  1036.     PrintLn Chr(13), TSTRING022(6)
  1037.     PrintLn Chr(13), TSTRING022(7)
  1038.     PrintLn Chr(13), TSTRING022(8)
  1039.     PrintLn Chr(13), TSTRING022(9)
  1040.     INTEGER009 = INTEGER009 + 1
  1041.     If (INTEGER009 == 2) Then
  1042.         PrintLn Chr(13), TSTRING022(0)
  1043.         STRING012 = "Y"
  1044.         InputYN "@X0EView next screen (Enter for more)", STRING012, 14
  1045.         If (STRING012 == "N") Goto LABEL053
  1046.         Cls
  1047.     Endif
  1048.     Return
  1049.     :LABEL053
  1050.     FClose 1
  1051.     PrintLn 
  1052.     If (STRING001 == "Y") Goto LABEL041
  1053.     If (STRING002 == "Y") Goto LABEL041
  1054.     Goto LABEL005
  1055.     :LABEL054
  1056.     Cls
  1057.     PrintLn 
  1058.     PrintLn "                       @X5D┌──────────────────────────────@X50┐@X07"
  1059.     PrintLn "                       @X5D│       @X5AIntelec PPE v", STRING021, "      @X50│@X07"
  1060.     PrintLn "                       @X5D│                              @X50│@X07"
  1061.     PrintLn "                       @X5D│      @X5BAborting Operation      @X50│@X07"
  1062.     PrintLn "                       @X5D│                              @X50│@X07"
  1063.     PrintLn "                       @X5D│ @X5BThis PPE Requires Reg Codes! @X50│@X07"
  1064.     PrintLn "                       @X5D│                              @X50│@X07"
  1065.     PrintLn "                       @X5D│ @X5BEven though this PPE is FREE @X50│@X07"
  1066.     PrintLn "                       @X5D│ @X5Bit MUST be registered  or it @X50│@X07"
  1067.     PrintLn "                       @X5D│ @X5Bwill not be able to operate! @X50│@X07"
  1068.     PrintLn "                       @X5D└@X50──────────────────────────────┘@X07"
  1069.     End
  1070.  
  1071. ;------------------------------------------------------------------------------
  1072. ;
  1073. ; Usage report (before postprocessing)
  1074. ;
  1075. ; ■ Statements used :
  1076. ;
  1077. ;    4       End
  1078. ;    28      Cls
  1079. ;    30      Wait
  1080. ;    4       Color 
  1081. ;    216     Goto 
  1082. ;    271     Let 
  1083. ;    20      Print 
  1084. ;    120     PrintLn 
  1085. ;    244     If 
  1086. ;    21      DispFile 
  1087. ;    20      FOpen 
  1088. ;    22      FClose 
  1089. ;    104     FGet 
  1090. ;    4       StartDisp 
  1091. ;    1       GetUser
  1092. ;    15      InputStr 
  1093. ;    4       InputYN 
  1094. ;    32      Gosub 
  1095. ;    5       Return
  1096. ;    1       Tokenize 
  1097. ;    3       GetToken 
  1098. ;    1       Stop
  1099. ;    2       Call 
  1100. ;    1       Bye
  1101. ;    1       WrUNet 
  1102. ;    23      AnsiPos 
  1103. ;    1       FDefIn 
  1104. ;    1       Download 
  1105. ;
  1106. ;
  1107. ; ■ Functions used :
  1108. ;
  1109. ;    203     +
  1110. ;    12      -
  1111. ;    221     ==
  1112. ;    31      <
  1113. ;    29      <=
  1114. ;    5       >
  1115. ;    71      >=
  1116. ;    79      !
  1117. ;    80      &&
  1118. ;    44      ||
  1119. ;    9       Len(
  1120. ;    18      Upper()
  1121. ;    53      Mid()
  1122. ;    3       Left()
  1123. ;    2       Right()
  1124. ;    4       Space()
  1125. ;    24      Chr()
  1126. ;    18      InStr()
  1127. ;    3       Date()
  1128. ;    2       U_Name()
  1129. ;    1       Year()
  1130. ;    3       Month()
  1131. ;    1       Inkey()
  1132. ;    1       String()
  1133. ;    6       Mask_Alpha()
  1134. ;    12      Mask_Num()
  1135. ;    3       Mask_Ascii()
  1136. ;    16      PPEPath()
  1137. ;    1       PcbNode()
  1138. ;    1       UN_Stat()
  1139. ;    1       Exist()
  1140. ;    2       S2I()
  1141. ;    2       AnsiOn()
  1142. ;    12      GetY()
  1143. ;    1       FileInf()
  1144. ;    1       KInkey()
  1145. ;    1       MInkey()
  1146. ;
  1147. ;------------------------------------------------------------------------------
  1148. ;
  1149. ; Analysis flags : C
  1150. ;
  1151. ; C - Call child PPE ■ 3
  1152. ;     This is usually normal, but may be a tricky way to launch some
  1153. ;     sysop-only commands.
  1154. ;     ■ Search for : CALL
  1155. ;
  1156. ;------------------------------------------------------------------------------
  1157. ;
  1158. ; Postprocessing report
  1159. ;
  1160. ;    29      For/Next
  1161. ;    1       While/EndWhile
  1162. ;    31      If/Then or If/Then/Else
  1163. ;    1       Select Case
  1164. ;
  1165. ;------------------------------------------------------------------------------
  1166. ;                 AEGiS Corp - Break the routines, code against the machines!
  1167. ;------------------------------------------------------------------------------
  1168.